home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / gfxprograms / misc / imagedex / install_imagedex < prev    next >
Text File  |  1995-02-13  |  2KB  |  76 lines
  1. ; ImageDex 2.2 Unregistered Installation - unknown source.
  2.  
  3. (transcript "Beginning ImageDex 2.2 installation...\n")
  4.  
  5. (set @default-dest
  6.     (askdir
  7.        (default "WORK:")
  8.        (prompt "In which directory should the ImageDex drawer be installed?")
  9.         (help @askdir-help)
  10.         (disk)
  11.     )
  12. )
  13.  
  14. (set @default-dest (tackon @default-dest "ImageDex2") )
  15.  
  16. (set source_dir (pathonly @icon) )
  17.  
  18. (transcript "\nSource is "source_dir "\n")
  19.  
  20. (transcript "\nDestination chosen as "@default-dest "\n")
  21.  
  22. (makedir  @default-dest
  23.     (prompt "I will now create the directory "@default-dest)
  24.     (help @makedir-help)
  25.     (infos)
  26.     (confirm)
  27. )
  28.  
  29. (copyfiles
  30.     (prompt "Copying ImageDex files...")
  31.     (help @copyfiles-help)
  32.    (source source_dir)
  33.    (dest @default-dest)
  34.     (choices "ImageDex" "ImageDex.info" "ImageDex.guide" "Sample.iff"
  35.             "Registration")
  36. )
  37.  
  38.  
  39. (message "Necessary libraries will now be copied to LIBS:")
  40.  
  41.  
  42. (copylib
  43.     (prompt "Copying RexxArpLib to LIBS:")
  44.     (help @copylib-help)
  45.     (source (tackon source_dir "LIBS/rexxarplib.library") )
  46.     (dest "LIBS:")
  47.     (confirm)
  48. )
  49.  
  50. (copylib
  51.     (prompt "Copying RexxPlsLib to LIBS:")
  52.     (help @copylib-help)
  53.     (source (tackon source_dir "LIBS/rexxplslib.library"))
  54.     (dest "LIBS:")
  55.     (confirm)
  56. )
  57.  
  58. (copylib
  59.     (prompt "Copying ReqTools to LIBS:")
  60.     (help @copylib-help)
  61.     (source (tackon source_dir "LIBS/reqtools.library"))
  62.     (dest "LIBS:")
  63.     (confirm)
  64. )
  65.  
  66. (copylib
  67.     (prompt "Copying RexxReqTools to LIBS:")
  68.     (help @copylib-help)
  69.     (source (tackon source_dir "LIBS/rexxreqtools.library"))
  70.     (dest "LIBS:")
  71.     (confirm)
  72. )
  73.  
  74. (exit)
  75.  
  76.